home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / tegl6b.zip / INTROPAK.EXE / lha / MENU01.PAS < prev    next >
Pascal/Delphi Source File  |  1991-07-16  |  570b  |  28 lines
  1. {-- menu01.pas }
  2. {$F+}
  3. USES
  4.   fastgrph, teglfont, tgraph, teglunit, teglmain, teglmenu;
  5.  
  6.  
  7. function ExitOption(ifs : ImageStkPtr; Ms: MsClickPtr): Word;
  8.   BEGIN
  9.     Halt;
  10.   END;
  11.  
  12. VAR  OmFile : OptionMPtr;
  13.  
  14. BEGIN
  15.   easytegl;
  16.   easyout;
  17.  
  18.   OmFile := CreateOptionMenu(@f8x12bol);
  19.   DefineOptions(OmFile,' ~O~pen ',true,NilUnitProc);
  20.   DefineOptions(OmFile,'-',false,nilunitproc);
  21.   DefineOptions(OmFile,' E~x~it ',true,ExitOption);
  22.   SetTeglFont(@f8x12bol);
  23.   CreateBarMenu(0,0,getmaxx);
  24.   OutBarOption(' ~F~ile ',OmFile);
  25.  
  26.   TeglSupervisor;
  27. END.
  28.